home *** CD-ROM | disk | FTP | other *** search
/ Business Shareware / Business Shareware.iso / start / gfxapps / fracxtr2 / improved.frm < prev    next >
Encoding:
Text File  |  1992-02-12  |  15.9 KB  |  779 lines
  1. ;========================================================================
  2. ;Date:    Thu, 13 Feb 1992 12:16:48 EST
  3. ;From: "Bruno"
  4. ;Subject: improved.frm
  5. ;X-Topic: Entry #3194 of LISTS.FRAC-L
  6. ;To: "LISTS.FRAC-L.3194"
  7. ;
  8. ;Posted on 13 Feb 1992 at 09:01:02 by BrownVM Mailer (103837)
  9. ;
  10. ;improved.frm
  11. ;
  12. ;Date:         Thu, 13 Feb 1992 11:15:24 MEZ
  13. ;Reply-To:     'FRACTAL' discussion list <FRAC-L@GITVM1.BITNET>
  14. ;From:         Thomas <QOC71@DMSWWU1A.BITNET>
  15. ;
  16. ;To whom it may concern:
  17. ;
  18. ;Greetings from Germany.
  19. ;
  20. ;Tom
  21. ;
  22. ;
  23. ;
  24. ;comment {
  25. ;
  26. ; FRACTINT.DOC has instructions for adding new formulas to this file.
  27. ; There are several hard-coded restrictions in the formula interpreter:
  28. ;
  29. ; 1) The fractal name through the open curly bracket must be on a single line.
  30. ;
  31. ; 2) There is a hard-coded limit of 200 formulas per formula file, only
  32. ;    because of restrictions in the prompting routines.
  33. ;
  34. ; 3) Formulas can contain at most 250 operations (references to variables and
  35. ;    arithmetic); this is bigger than it sounds, no formula in the default
  36. ;    fractint.frm uses even 100.
  37. ;
  38. ; 3) Comment blocks can be set up using dummy formulas with no formula name
  39. ;    or with the special name "comment".
  40. ;
  41. ; The formulas are listed alphabetically.
  42. ;
  43. ; Note that the builtin "cos" function had a bug which was corrected in
  44. ; version 16.     recreate an image from a formula which used cos before
  45. ; v16, change "cos" in the formula to "cosxx" which is a new function
  46. ; provided for backward compatibility with that bug.
  47. ; }
  48. ;
  49. {==================================================================}
  50.  
  51.  
  52. AltJTet (XAXIS) {; Lee Skinner
  53.    z = p1:
  54.    z = (pixel ^ z) + p1,
  55.        |z| <= (p2 + 3)
  56.   }
  57.  
  58.  
  59. {==================================================================}
  60.  
  61. AltMTet (XAXIS) {; Lee Skinner
  62.    ; try p1 = 1.5
  63.    z = 0:
  64.    z = (pixel ^ z) + pixel,
  65.        |z| <= (p1 + 3)
  66.   }
  67.  
  68.  
  69. {==================================================================}
  70.  
  71. Bogus1 {; Fractal Creations
  72.    ; try p1 = 2 and p2 = 4
  73.    z = 0;
  74.    z = z + p1,
  75.        |z| <= p2
  76.   }
  77.  
  78.  
  79. {==================================================================}
  80.  
  81. CGhalley (XYAXIS) {; Chris Green
  82.    ; try p1 = 1, p2 = 0.0001
  83.    ; note--use floating point
  84.    z   = (1,1):
  85.    z5  = z*z*z*z*z;
  86.    z6  = z*z5;
  87.    z7  = z*z6;
  88.    z8  = z7 - z - pixel;
  89.    z   = z-p1*(z8/ ((7.0*z6-1)-(42.0*z5)*z8/(14.0*z6-2))),
  90.          p2 <= |z8|
  91.   }
  92.  
  93.  
  94. {==================================================================}
  95.  
  96. Cubic (XYAXIS) {; Lee Skinner
  97.    ; try p1 = 2, p2 = 3
  98.    t1 = pixel,
  99.    t2 = t1*t1 + 1
  100.    t3 = 3*t1,
  101.    a  = t2/t3,
  102.    b  = p1*a*a*a + (t2 - 2)/t3,
  103.    d  = p2*a*a,
  104.    z  = 0 - a:
  105.    z  = z*z*z - d*z + b,
  106.         |z| < p1 + 3
  107.   }
  108.  
  109.  
  110. {==================================================================}
  111.  
  112. Dragon (ORIGIN) {; Mark Peterson
  113.    ; try p1 = (-0.74543, 0.2), p2 = 4, fn1 = sqr
  114.    ; note p2 should not be zero
  115.    z = pixel:
  116.    z = fn1(z) + p1,
  117.        |z| <= p2
  118.   }
  119.  
  120.  
  121. {==================================================================}
  122.  
  123. Daisy (ORIGIN) {; Mark Peterson
  124.    ; try p1 = (0.11031, -0.67037) and p2 = 4
  125.    ; note p2 should not be zero
  126.    z = pixel:
  127.    z = z*z + p1,
  128.        |z| <= p2
  129.  
  130.   }
  131.  
  132.  
  133. {==================================================================}
  134.  
  135. DeltaLog (XAXIS) {; Mark Peterson
  136.    ; try p1 = 1, p2 = 4, fn1 = log, fn2 = sqr
  137.    ; note p2 should not be zero
  138.    z = pixel, c = fn1(pixel):
  139.    z = fn2(z) + c/p1,
  140.        |z| <= p2
  141.   }
  142.  
  143.  
  144. {==================================================================}
  145.  
  146. Ent {; Scott Taylor
  147.    ; try p1 = (.5, .75), p1 = 0, p2 = 4, fn1 = exp
  148.    z    = pixel,
  149.    y    = fn1(z)+p1,
  150.    base = log(p1):
  151.    z    = y * log(z)/base,
  152.           |z| <= p2
  153.   }
  154.  
  155.  
  156. {==================================================================}
  157.  
  158. Ent2 {; Scott Taylor
  159.    ; try p1 = 2, fn1 = cos, fn2 = cosh
  160.    ; try potential = 255/355
  161.    z    = pixel,
  162.    y    = fn1(z),
  163.    base = log(p1):
  164.    z    = fn2( y * log(z) / base ),
  165.           |z| <= p1
  166.   }
  167.  
  168.  
  169. {==================================================================}
  170.  
  171. FnDog (XYAXIS)  {; Scott Taylor
  172.    z = pixel,
  173.    b = p1+2:
  174.    z = fn1( z ) * pixel,
  175.        |z| <= b
  176.   }
  177.  
  178.  
  179. {==================================================================}
  180.  
  181. Fzppfncs  {; Lee Skinner
  182.    ; try p1 = 50, fn1 = cos, fn2 = sin
  183.    z = pixel,
  184.    f = 1./fn1(pixel):
  185.    z = fn2(z) + f,
  186.        |z| <= p1
  187.   }
  188.  
  189. Fzppfnct  {; Lee Skinner
  190.    ; try p1 = 50, fn1 = sin, fn2 = cos, fn3 = sin
  191.    z = pixel,
  192.    f = fn2(pixel)/fn3(pixel):
  193.    z = fn1(z) + f,
  194.        |z|<= p1
  195.   }
  196.  
  197.  
  198. Fzppfnpo  {; Lee Skinner
  199.    ; try p1 = 50
  200.    z = pixel,
  201.    f = 2*(pixel)^(pixel):
  202.    z = fn1(z) + f,
  203.        |z| <= p1
  204.   }
  205.  
  206. Fzppfnre  {; Lee Skinner
  207.    ; try p1 = 50 and p2 = 1
  208.    z = pixel,
  209.    f = 1./(pixel):
  210.    z = fn1(z) + f * p2,
  211.        |z| <= p1
  212.   }
  213.  
  214. Fzppfnse  {; Lee Skinner
  215.    ; try p1 = 50, fn1 = sin, fn2 = sin
  216.    z = pixel,
  217.    f = 1./fn2(pixel):
  218.    z = fn1(z) + f,
  219.        |z| <= p1
  220.   }
  221.  
  222. Fzppfnsr  {; Lee Skinner
  223.    ; try p1 = 50
  224.    z = pixel,
  225.    f = (pixel)^.5:
  226.    z = fn1(z) + f,
  227.        |z| <= p1
  228.   }
  229.  
  230. Fzppfnta  {; Lee Skinner
  231.    ; try p1 = 50
  232.    z = pixel,
  233.    f = fn2(pixel):
  234.    z = fn1(z) + f,
  235.        |z|<= p1
  236.   }
  237.  
  238.  
  239. {==================================================================}
  240.  
  241. Gamma (XAXIS)={ ; Jm Richard-Collard
  242.    ; try p1 = 6.2   ; note that p1 above is two times pi
  243.    z = pixel:
  244.    z = (p1*z)^(0.5)*(z^z)*exp(-z)+pixel
  245.    |z|<=p2
  246.   }
  247.  
  248.  
  249. {===============
  250. Halley (XYAXIS) {; Chris Green
  251.    ; try p1 = 1.0 and p2 = 0.0001
  252.    ; note--use floating point
  253.    z  = pixel:
  254.    z5 = z*z*z*z*z;
  255.    z6 = z*z5;
  256.    z7 = z*z6;
  257.    z  = z-p1*((z7-z)/((7.0*z6-1)-(42.0*z5)*(z7-z)/(14.0*z6-2))),
  258.         p2 <= |z7-z|
  259.    }
  260.  
  261.  
  262. {==================================================================}
  263.  
  264. InvMandel (XAXIS) {; Mark Peterson
  265.    ; try p1 = 1, p2 = 4, fn1 = sqr
  266.    ; note p2 should not be zero
  267.    c = z = p1 / pixel:
  268.    z = fn1(z) + c;
  269.        |z| <= p2
  270.   }
  271.  
  272.  
  273. {==================================================================}
  274.  
  275. HalleySin (XYAXIS) {; Chris Green
  276.    ; try p1 = 0.1, p2 = 0.0001, fn1 = sin, fn2 = cos
  277.    ; note--use floating point
  278.    z  = pixel:
  279.    s  = fn1(z),
  280.    c  = fn2(z)
  281.    z=z-p1*(s/(c-(s*s)/(c+c))),
  282.    p2 <= |s|
  283.   }
  284.  
  285.  
  286. {==================================================================}
  287.  
  288. HyperMandel {; Chris Green.
  289.    ; try p1 = 1.8, p2 = 2.0, fn1 = sqr
  290.    ; note--use floating point
  291.    a    = (0,0),
  292.    b    = (0,0):
  293.    z    = z+1
  294.    anew = fn1(a)-fn1(b)+pixel
  295.    b    = p2*a*b+p1
  296.    a    = anew,
  297.           |a|+|b| <= 4
  298.   }
  299.  
  300.  
  301.  
  302. {==================================================================}
  303.  
  304. Jm_01 {; Jm Richard-Collard
  305.    z = pixel,
  306.    t = p1+4:
  307.    z = (fn1(fn2(z^pixel)))*pixel,
  308.        |z| <= t
  309.   }
  310.  
  311. Jm_02 {; Jm Richard-Collard
  312.    z = pixel,
  313.    t = p1+4:
  314.    z = (z^pixel)*fn1(z^pixel),
  315.        |z| <= t
  316.   }
  317.  
  318. Jm_03 {; Jm Richard-Collard
  319.    z = pixel,
  320.    t = p1+4:
  321.    z = fn1((fn2(z)*pixel)*fn3(fn4(z)*pixel))*pixel,
  322.        |z| <= t
  323.   }
  324.  
  325. Jm_04 {; Jm Richard-Collard
  326.    z = pixel,
  327.    t = p1+4:
  328.    z = fn1((fn2(z)*pixel)*fn3(fn4(z)*pixel)),
  329.        |z| <= t
  330.   }
  331.  
  332. Jm_05 {; Jm Richard-Collard
  333.    z = pixel,
  334.    t = p1+4:
  335.    z = fn1(fn2((z^pixel))),
  336.        |z| <= t
  337.   }
  338.  
  339. Jm_06 {; Jm Richard-Collard
  340.    z = pixel,
  341.    t = p1+4:
  342.    z = fn1(fn2(fn3((z^z)*pixel))),
  343.        |z| <= t
  344.   }
  345.  
  346. Jm_07 {; Jm Richard-Collard
  347.    z = pixel,
  348.    t = p1+4:
  349.    z = fn1(fn2(fn3((z^z)*pixel)))*pixel,
  350.        |z| <= t
  351.   }
  352.  
  353. Jm_08 {; Jm Richard-Collard
  354.    z = pixel,
  355.    t = p1+4:
  356.    z = fn1(fn2(fn3((z^z)*pixel)))+pixel,
  357.        |z| <= t
  358.   }
  359.  
  360. Jm_09 {; Jm Richard-Collard
  361.    z = pixel,
  362.    t = p1+4:
  363.    z = fn1(fn2(fn3(fn4(z))))+pixel,
  364.        |z| <= t
  365.   }
  366.  
  367. Jm_10 {; Jm Richard-Collard
  368.    z = pixel,
  369.    t = p1+4:
  370.    z = fn1(fn2(fn3(fn4(z)*pixel))),
  371.        |z| <= t
  372.   }
  373.  
  374. Jm_11 {; Jm Richard-Collard
  375.    z = pixel,
  376.    t = p1+4:
  377.    z = fn1(fn2(fn3(fn4(z)*pixel)))*pixel,
  378.        |z| <= t
  379.   }
  380.  
  381. Jm_12 {; Jm Richard-Collard
  382.    z = pixel,
  383.    t = p1+4:
  384.    z = fn1(fn2(fn3(z)*pixel)),
  385.        |z| <= t
  386.   }
  387.  
  388. Jm_13 {; Jm Richard-Collard
  389.    z = pixel,
  390.    t = p1+4:
  391.    z = fn1(fn2(fn3(z)*pixel))*pixel,
  392.        |z| <= t
  393.   }
  394.  
  395. Jm_14 {; Jm Richard-Collard
  396.    z = pixel,
  397.    t = p1+4:
  398.    z = fn1(fn2(fn3(z)*pixel))+pixel,
  399.        |z| <= t
  400.   }
  401. k
  402. Jm_15 {; Jm Richard-Collard
  403.    z  = pixel,
  404.    t  = p1+4:
  405.    f2 = fn2(z),z=fn1(f2)*fn3(fn4(f2))*pixel,
  406.         |z| <= t
  407.   }
  408.  
  409. Jm_16 {; Jm Richard-Collard
  410.    z  = pixel,
  411.    t  = p1+4:
  412.    f2 = fn2(z),z=fn1(f2)*fn3(fn4(f2))+pixel,
  413.         |z| <= t
  414.   }
  415.  
  416. Jm_17 {; Jm Richard-Collard
  417.    z = pixel,
  418.    t = p1+4:
  419.    z = fn1(z)*pixel*fn2(fn3(z)),
  420.        |z| <= t
  421.   }
  422.  
  423. Jm_18 {; Jm Richard-Collard
  424.    z = pixel,
  425.    t = p1+4:
  426.    z = fn1(z)*pixel*fn2(fn3(z)*pixel),
  427.        |z| <= t
  428.   }
  429.  
  430. Jm_19 {; Jm Richard-Collard
  431.    z = pixel,
  432.    t = p1+4:
  433.    z = fn1(z)*pixel*fn2(fn3(z)+pixel),
  434.        |z|<=t
  435.   }
  436.  
  437. Jm_20 {; Jm Richard-Collard
  438.    z = pixel,
  439.    t = p1+4:
  440.    z = fn1(z^pixel),
  441.        |z| <= t
  442.   }
  443.  
  444. Jm_21 {; Jm Richard-Collard
  445.    z= pixel,
  446.    t= p1+4:
  447.    z= fn1(z^pixel)*pixel,
  448.       |z| <= t
  449.   }
  450.  
  451. Jm_22 {; Jm Richard-Collard
  452.    z  = pixel,
  453.    t  = p1+4:
  454.    sq = fn1(z),
  455.    z  = (sq*fn2(sq)+sq)+pixel,
  456.         |z| <= t
  457.   }
  458.  
  459. Jm_23 {; Jm Richard-Collard
  460.    z = pixel,
  461.    t = p1+4:
  462.    z = b.L
  463. fn2(fn3(z)+pixel*pixel)),
  464.        |z| <=t
  465.   }
  466. y
  467. Jm_24 {; Jm Richard-Collard
  468.    z  = pixel,
  469.    t  = p1+4:
  470.    z2 = fn1(z), z=(fn2(z2*fn3(z2)+z2))+pixel,
  471.         |z| <= t
  472.   }
  473.  
  474. Jm_25 {; Jm Richard-Collard
  475.    z = pixel,
  476.    t = p1+4:
  477.    z = fn1(z*fn2(z)) + pixel,
  478.        |z|<=t
  479.   }
  480.  
  481. Jm_26 {; Jm Richard-Collard
  482.    z = pixel,
  483.    t = p1+4:
  484.    z = fn1(fn2(z)) + pixel,
  485.        |z|<=t
  486.   }
  487.  
  488. Jm_27 {; Jm Richard-Collard
  489.    z = pixel,
  490.    t = p1+4:
  491.  
  492.    s = fn1(z),
  493.    z = s + 1/s + pixel,
  494.        |z| <= t
  495.   }
  496.  
  497. Jm_ducks (XAXIS) {; Jm Richard-Collard
  498.    ; try fn1 = sqr
  499.    ; try corners=-1.178372/-0.978384/-0.751678/-0.601683
  500.    z    = pixel,
  501.    t    = 1+pixel:
  502.    z    = fn1(z)+t,
  503.           |z| <= p1 + 4
  504.   }
  505.  
  506.  
  507. {==================================================================}
  508.  
  509. JTet (XAXIS) {; Lee Skinner
  510.    z = pixel:
  511.    z = (pixel ^ z) + p1,
  512.        |z| <= (p2 + 3)
  513.   }
  514.  
  515.  
  516. {==================================================================}
  517.  
  518. LeeMandel1 (XYAXIS) {; Kevin Lee
  519.    ; try p1 = 0, p2 = 4, fn1 = sqr, fn2 = sqr
  520.    z = pixel + p1:
  521.    c = fn1(pixel)/z, c=z+c, z=fn2(z),
  522.        |z| < p2
  523.   }
  524.  
  525. LeeMandel2 (XYAXIS) {; Kevin Lee
  526.    ; try p1 = 0, p2 = 4, fn1 = sqr, fn2 = sqr
  527.    z = pixel + p1:
  528.    c = fn1(pixel)/z, c=z+c, z=fn2(c*pixel),
  529.        |z| < p2
  530.    }
  531.  
  532. LeeMandel3 (XAXIS) {; Kevin Lee
  533.    ; try p1 = 0, p2 = 4, fn1 = sqr
  534.    z = pixel + p1,
  535.    c = pixel-fn1(z):
  536.    c = pixel+c/z,
  537.    z = c-z*pixel,
  538.        |z| < p1
  539.   }
  540.  
  541.  
  542. {==================================================================}
  543.  
  544. Mandel3 {; Fractal Creations
  545.    ; try p1 = 1, p2 = 4, fn1 = sin
  546.    z = pixel * p1,
  547.    c = fn1(z):
  548.    z = (z*z) + c;
  549.    z = z * 1/c;
  550.        |z| <= p2;
  551.    }
  552.  
  553.  
  554. {==================================================================}
  555.  
  556. Mandelbrot (XAXIS) {; Mark Peterson
  557.    ; try p1 = 0, p2 = 4, fn1 = sqr, fn2 = sqr
  558.    ; note p2 should not be zero
  559.    z = pixel,
  560.    z = fn1(z):
  561.    z = z + pixel + p1
  562.    z = fn2(z)
  563.        lastsqr <= p2
  564.   }
  565.  
  566.  
  567. {==================================================================}
  568.  
  569. MandelTangent {; Fractal Creations
  570.    ; try p1 = 0, p2 = 32, fn1 = tan
  571.    z = pixel + p1:
  572.    z = pixel * fn1(z),
  573.       |real(z)| < p2
  574.   }
  575.  
  576.  
  577. {==================================================================}
  578.  
  579. MTet (XAXIS) {; Lee Skinner
  580.    ; try fn1 = sin, p1 = 1
  581.    z = pixel:
  582.    z = (pixel ^ z) + pixel,
  583.        |z| <= (p1 + 3)
  584.   }
  585.  
  586.  
  587. {==================================================================}
  588.  
  589. MyFractal {; Fractal Creations
  590.    ; try p1 = 0, p2 = 4
  591.    c = z = 1/pixel + p1:
  592.    z = fn1(z) + c;
  593.        |z| <= p2
  594.   }
  595.  
  596.  
  597. {==================================================================}
  598.  
  599. Newton3 {; Chris Green
  600.    ; Try p1=1.8 and p2 = 3.0
  601.    z  = (1,1):
  602.    z2 = z*z;
  603.    z3 = (z*z2) - pixel;
  604.    z  = z-p1*z3/(p2*z2),
  605.         0.0001 < |z3|
  606.   }
  607.  
  608.  
  609. {==================================================================}
  610.  
  611. Newton4 (XYAXIS) {; Mark Peterson
  612.     ; try p1 = 3 and p2 = 4
  613.     z  = pixel,
  614.     Root = 1:
  615.     z3 = z*z*z;
  616.     z4 = z3 * z;
  617.     z  = (p1 * z4 + Root) / (p2 * z3);
  618.          0.004 <= |z4 - Root|
  619.   }
  620.  
  621.  
  622. {==================================================================}
  623.  
  624. NewtonSinExp (XAXIS) {; Chris Green
  625.    ; try fn1 = exp, fn2 = sin, fn3 = cos, p1 = 1, p2 = 0.0001
  626.    ; note--use floating point
  627.    z  = pixel:
  628.    z1 = fn1(z)
  629.    z2 = fn2(z)+z1-1
  630.    z  = z-p1*z2/(fn3(z)+z1),
  631.         p2 < |z2|
  632.   }
  633.  
  634.  
  635. {==================================================================}
  636.  
  637. PseudoMandel (XAXIS) {; davisl
  638.    ; try p1 = 2.7182818, p2 = 6.2831853, fn1 = sqr
  639.    z = pixel:
  640.    z = ((z/p1)^z)*fn1(p2*z) + pixel,
  641.        |z| <= 4
  642.   }
  643.  
  644.  
  645. {==================================================================}
  646.  
  647. Richard1 (XYAXIS) {; Jm Richard-Collard
  648.    ; try p1 = 0, p2 = 50
  649.    z   = pixel + p1:
  650.    sq  = z*z,
  651.    z   = (sq*fn1(sq)+sq)+pixel,
  652.          |z| <= p2
  653.   }
  654.  
  655. Richard2 (XYAXIS) {; Jm Richard-Collard
  656.    ; try p1 = 0, p2 = 50, fn1 = sin
  657.    z   = pixel + p1:
  658.    z   = 1/(fn1(z*z+pixel*pixel)),
  659.          |z| <= p2
  660.   }
  661.  
  662. Richard3 (XAXIS) {; Jm Richard-Collard
  663.    ; try p1 = 0, p2 = 50, fn1 = sinh
  664.    z   = pixel + p1:
  665.    sh  = fn1(z),
  666.     z   -b1/(sh*sh))+pixel,
  667.          |z| <= p2
  668.   }
  669.  
  670. Richard4 (XAXIS) {; Jm Richard-Collard
  671.    ; try p1 = 0, p2 = 50, fn1 = cos
  672.    z   = pixel + p1:
  673.    z2  = z*z,
  674.    z   = (1/(z2*fn1(z2)+z2))+pixel,
  675.          |z| <= p2
  676.   }
  677.  
  678. Richard5 (XAXIS) {; Jm Richard-Collard
  679.    ; try p1 = 0, p2 = 50, fn1 = sin, fn2 = sinh
  680.    z = pixel + p1:
  681.    z = fn1(z*fn2(z))+pixel,
  682.        |z| <= p2
  683.   }
  684.  
  685. Richard6 (XYAXIS) {; Jm Richard-Collard
  686.    ; try p1 = 0, p2 = 50, fn1 = sin, fn2 = sinh
  687.    z = pixel + p1:
  688.    z = fn1(fn2(z))+pixel,
  689.        |z| <= p2
  690.   }
  691.  
  692. Richard7 (XAXIS) {; Jm Richard-Collard
  693.    ; try p1 = 0, p2 = 50, fn1 = log
  694.    z = pixel:
  695.    z = fn1(z)*pixel,
  696.        |z| <= p2
  697.   }
  698.  
  699. Richard8 (XYAXIS) {; Jm Richard-Collard
  700.    ; try p1 = 0, p2 = 50, fn1 = sin, fn2 = sin
  701.    ; note--used for cover of "Fractal Creations"
  702.    z = pixel + p1,
  703.    z = fn1(z)+fn2(pixel),
  704.        |z| <= p2
  705.   }
  706.  
  707. Richard9 (XAXIS) {; Jm Richard-Collard
  708.    ; try p1 = 0, p2 = 4
  709.    z = pixel + p1:
  710.    s = z*z,
  711.    z = s + 1/s + pixel,
  712.        |z| <= p2
  713.   }
  714.  
  715. Richard10 (XYAXIS) {; Jm Richard-Collard
  716.    ; try p1 = 0, p2 = 50, fn1 = sin
  717.    z = pixel + p1:
  718.    z = 1 / fn1(1/(z*z)),
  719.        |z| <= p2
  720.   }
  721.  
  722.  
  723. {==================================================================}
  724.  
  725. Sterling (XAXIS) {; davisl
  726.    ; try p1 = 2.7182818, p2 = 6.2831853
  727.    z = pixel:
  728.    z = ((z/p1)^z)/fn1(p2*z),
  729.        |z| <= 4
  730.   }
  731.  
  732. Sterling2 (XAXIS) {; davisl
  733.    ; try p1 = 2.7182818, p2 = 6.2831853
  734.    z = pixel:
  735.    z = ((z/p1)^z)/fn1(p2*z) + pixel,
  736.        |z| <= 4
  737.   }
  738.  
  739. Sterling3 (XAXIS) {; davisl
  740.    ; try p1 = 2.7182818, p2 = 6.2831853
  741.    z = pixel:
  742.    z = ((z/p1)^z)/fn1(p2*z) - pixel,
  743.        |z| <= 4
  744.   }
  745.  
  746.  
  747. {==================================================================}
  748.  
  749. Wineglass (XAXIS) {; Pieter Branderhorst
  750.    ; try p1 = 4 and p2 = 2
  751.    c = z = pixel:
  752.    z = z * z + c
  753.    c = (1+flip(imag(c))) * real(c) / p2 + z,
  754.        |z| <= p1
  755.   }
  756.  
  757.  
  758. {==================================================================}
  759.  
  760. ZZ (XAXIS) { ; Jm Richard-Collard
  761.    ; try fn1 = log, p1 = 0.001
  762.    ; note--use floating point
  763.    z  = pixel:
  764.    z1 = z^z;
  765.    z2 = (fn1(z)+1)*z1;
  766.    z  = z-(z1-1)/z2,
  767.         p1 <= |1-z1|
  768.   }
  769.  
  770. ZZa (XAXIS) { ; Jm Richard-Collard
  771.    ; try p1 = 0.001, fn1 = log
  772.    ; note--use floating point
  773.    z  = pixel:
  774.    z1 = z^(z-1);
  775.    z2 = (((z-1)/z)+fn1(z))*z1;
  776.    z  = z-((z1-1)/z2),
  777.         p1 <= |1-z1|
  778.   }
  779.